home *** CD-ROM | disk | FTP | other *** search
/ Bioblech 1 / Bioblech_1_1997_KRG_de_Side_A.d64 / klaeranlage _krg (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  9KB  |  317 lines
  1. 10 poke53280,11:poke53281,11
  2. 20 print"[147][144]":goto100
  3. 30 print"[147][144]****************************************";
  4. 40 fori=1to2:print"*                                      *";:next
  5. 50 print"*         k l a e r a n l a g e        [144]*";
  6. 55 fori=1to2:print"*                                      *";:next
  7. 60 print"****************************************";
  8. 70 return
  9. 100 gosub30
  10. 110 print"         k l a e r a n l a g e"
  11. 120 print"     die super verwaltung fuer ihre"
  12. 130 print"       persoenliche klaeranlage."
  13. 135 print"geschrieben von boris dietrich (16.6.94)"
  14. 136 print"nachgeschnalft fuer bioblech am 22.12.96";
  15. 140 geta$:ifa$=""then140
  16. 150 gosub30
  17. 160 print"      eine data klecker produktion"
  18. 170 print"    moment,ich lade das programm..."
  19. 180 fori=1to10:open15,8,15,"i":close15:next
  20. 190 gosub30
  21. 200 print"37 , dies ist eine raubkopie , 00 , 00 "
  22. 210 print"legen sie die druckeranpassungs diskette"
  23. 220 print"                  ein."
  24. 230 geta$:ifa$=""then230
  25. 240 gosub30
  26. 250 fori=1to3:open15,8,15,"i":close15:next
  27. 260 print"woll!woll!woll! waehlen sie den drucker:"
  28. 270 print"a) seikosha gp500vc/mps 801/mps 803"
  29. 280 print"b) langsam und laut a045"
  30. 290 print"c) datenstau compact"
  31. 300 print"d) kugelschreiber"
  32. 310 geta$:ifa$=""then310
  33. 320 gosub30
  34. 330 print"warum haben sie sich fuer diesen drucker"
  35. 340 print"entschieden?"
  36. 350 input a$:print"das ist in der tat sehr interessant."
  37. 355 geta$:ifa$=""then355
  38. 360 print"moment,ich lade die anpassung."
  39. 370 fori=1to5:open15,8,15,"i":close15:next
  40. 380 gosub30
  41. 390 print"wollen sie eine spezielle floppy-"
  42. 400 print"konfiguraaasssiooon?ja/nein"
  43. 410 inputa$
  44. 420 ifa$="nein"then450
  45. 430 ifa$="ja"then500
  46. 440 goto380
  47. 450 gosub30
  48. 460 print"warum nicht";:input a$
  49. 470 print"willst du mich verarschen???du machst"
  50. 480 print"jetzt sofort eine floppykonfiguraassioon"
  51. 490 geta$:ifa$=""then490
  52. 500 gosub30
  53. 510 print"floppykoonfijurasion:"
  54. 520 print"welsche floppy besitzen sie?"
  55. 530 print"a)1541 ueber seriellen bus"
  56. 540 print"b)1541 ueber omnibus"
  57. 550 print"c)1541 ueber s-bahn"
  58. 560 print"d)2-schacht toaster"
  59. 570 print"e)4-schacht toaster"
  60. 580 geta$:ifa$=""then580
  61. 590 ifa$="a"then650
  62. 600 ifa$="b"then700
  63. 610 ifa$="c"then700
  64. 620 ifa$="d"then800
  65. 630 ifa$="e"then900
  66. 640 goto580
  67. 650 gosub30
  68. 660 print"das ist in ordnung."
  69. 670 geta$:ifa$=""then670
  70. 680 goto1000
  71. 700 gosub30
  72. 710 print"diese floppy bedarf einer speziellen"
  73. 720 print"fahrkarte.haben sie eine(ja/nein)?"
  74. 730 inputa$
  75. 740 ifa$="nein"then761
  76. 750 ifa$="ja"then774
  77. 760 goto700
  78. 761 gosub30
  79. 762 print"sie schwarzfahrer,sie!!!das wird sie"
  80. 763 print"einen batzen geld kosten.schieben sie"
  81. 764 print"sofort 400dm in den user-port!!!"
  82. 765 print"wenn sie das getan haben,druecken sie"
  83. 766 print"space!"
  84. 767 geta$:ifa$=""then767
  85. 768 gosub30
  86. 769 print"auch noch falschgeld!!!die naechsten"
  87. 770 print"7 jahre werden sie wohl im gefaengnis"
  88. 771 print"verbringen..."
  89. 772 geta$:ifa$=""then772
  90. 773 goto500
  91. 774 gosub30
  92. 775 print"so?na dann schieben sie sie mal sofort"
  93. 776 print"in die floppy und druecken sie space"
  94. 777 geta$:ifa$=""then777
  95. 778 gosub30
  96. 779 fori=0to3:open15,8,15,"i":close15:next
  97. 780 print"lass ich mal durchgehen..."
  98. 781 geta$:ifa$=""then781
  99. 782 goto1000
  100. 800 gosub30
  101. 801 print"welche kruemel-kapazitaet haben ihre"
  102. 802 print"toasts pro kubikzentimeter?"
  103. 803 print"a)128 kruemel"
  104. 804 print"b)256 kruemel"
  105. 805 print"c)1 kilokruemel (1024 kruemel)"
  106. 806 print"d)64 kilokruemel (65536 kruemel)"
  107. 807 print"e)1 megakruemel (1048576 kruemel)"
  108. 808 geta$:ifa$=""then808
  109. 809 ifa$="e"then812
  110. 810 ifa$="a"ora$="b"ora$="c"ora$="d"then819
  111. 811 goto808
  112. 812 gosub30
  113. 813 print"ah ja...wollen sie mich verarschen????"
  114. 814 print"der c64 kann grad mal 65536 kruemel"
  115. 815 print"in sich aufnehmen!da muessen sie sich"
  116. 816 print"schon einen externen pc-toaster kaufen."
  117. 817 geta$:ifa$=""then817
  118. 818 goto800
  119. 819 gosub30:print"wie viele toasts kann ihr toaster"
  120. 820 print"pro sekunde roesten?"
  121. 821 print"a)0.2       (20 c hz)
  122. 822 [153]"b)1         (100 c hz)
  123. 823 print"c)10        (1000 c hz)
  124. 824 [153]"d)100       (10000 c hz)
  125. 825 print"(20c hz=20 grad hitze)
  126. 826 [161]a$:[139]a$[178]""[167]826
  127. 827 [139]a$[178]"a"[167]845
  128. 828 [139]a$[178]"b"[176]a$[178]"c"[167]1000
  129. 829 [139]a$[178]"d"[167]831
  130. 830 [137]826
  131. 831 [141]30:[153]"tut mir leid,diese konfijurrsaaaaasion"
  132. 832 [153]"ist auf ist auf dem c64 nicht moeglich."
  133. 833 [153]"es gibt jedoch eine moeglichkeit:"
  134. 834 [153]"besitzen sie einen vorschlaghammer?"
  135. 835 [161]a$:[139]a$[178]""[167]835
  136. 836 [141]30
  137. 837 [153]"schlagen sie auf einen schacht des"
  138. 838 [153]"toasters mit dem vorschlaghammer ein."
  139. 839 [153]"nach kurzer zeit duerfte der schacht"
  140. 840 [153]"total im arsch sein.ihr toaster schafft"
  141. 841 [153]"jetzt nur noch 5000 toasts pro sekunde."
  142. 842 [153]"damit waehre das problem geloest."
  143. 843 [161]a$:[139]a$[178]""[167]843
  144. 844 [137]1000
  145. 845 [141]30
  146. 846 [153]"kaufen sie sich bitte zuerst den"
  147. 847 [153]"toast-booster v2.0 damit ihr toaster"
  148. 848 [153]"den noetigen speed bekommt.es gibt"
  149. 849 [153]"jedoch noch eine andere moeglichkeit"
  150. 850 [153]"fuer die,denen es finanziell nicht so"
  151. 851 [153]"gut geht.hier sehen sie eine moeglich-"
  152. 852 [153]"keit,ihrem toaster fuer nur 4.50 dm"
  153. 853 [153]"beine zu machen.dazu benuetigen sie"
  154. 854 [153]"jedoch etwas fingergeschick..."
  155. 855 [161]a$:[139]a$[178]""[167]855
  156. 856 [141]30
  157. 857 [153]"gehen sie ins kaufhaus und kaufen sie"
  158. 858 [153]"ein paeckchen knete.formen sie"
  159. 859 [153]"4 beine daraus und befaestigen sie diese"
  160. 860 [153]"unten an jeder ecke des toasters."
  161. 861 [153]"schon haben sie ihrem toaster beine"
  162. 862 [153]"gemacht und kann jetzt 1 toast pro"
  163. 863 [153]"sekunde roesten."
  164. 864 [161]a$:[139]a$[178]""[167]864
  165. 865 [137]1000
  166. 900 [141] 30
  167. 901 [153]"nehmen sie eine axt und teilen sie"
  168. 902 [153]"den toaster mit einem schlag durch."
  169. 930 [153]"die eine seite schmeissen sie weg,die"
  170. 940 [153]"andere benutzen sie weiter.nehmen"
  171. 950 [153]"sie nun eine 2-schacht toaster"
  172. 960 [153]"koooonfijuraaasiiiiioon vor."
  173. 970 [161]a$:[139]a$[178]""[167]970
  174. 980 [137]500
  175. 1000 [141]30
  176. 1010 [153]"klaeranlagen-anpassung"
  177. 1020 [153]"wie viele arbeiter haben sie in ihrer"
  178. 1030 [153]"klaeranlage?"
  179. 1040 [133]ar:[139]ar[178]0[167]1000
  180. 1050 [141]30
  181. 1060 [153]"wie viele klaer-becken hat ihre"
  182. 1070 [153]"klaeranlage?"
  183. 1080 [133]kb:[139]kb[178]0[167]1050
  184. 1090 [141]30
  185. 1100 [153]"wie viel kubikmeter scheisse entsorgen"
  186. 1110 [153]"sie pro monat?"
  187. 1120 [133]sc:[139]sc[178]0[176]sc[177]999[167]1090
  188. 1130 [141]30
  189. 1140 [153]"wie viel liter pisse giessen sie ihren"
  190. 1150 [153]"arbeitern pro tag in den kaffee?
  191. 1160 print"(insgesamt)"
  192. 1170 input pi:ifpi>999then1130
  193. 1180 gosub 30
  194. 1190 print"wie viele arbeiter haben das schon"
  195. 1200 print"gemerkt?"
  196. 1210 input gm
  197. 1220 gosub30
  198. 1230 print"wie viele arbeiter haben sie schon"
  199. 1240 print"gefeuert?"
  200. 1250 inputgf
  201. 1260 gosub30:ifgf>999then1220
  202. 1270 print"wie viele davon haben schon zurueck-"
  203. 1280 print"gefeuert?"
  204. 1290 inputzg:ifzg>999orzg>gfthen1260
  205. 1300 gosub30
  206. 1310 print"was haben sie fuer ein gewehr?"
  207. 1320 input g$
  208. 1330 print"[147]         klaeranlage hauptmenue"
  209. 1340 print"----------------------------------------"
  210. 1350 print"arbeiter:";ar:print"[145]";spc(20);"klaerbecken";kb
  211. 1360 print"entsorgung:";sc;"cm2 scheisse pro monat"
  212. 1370 print"verpestung:";pi;"liter pro tag im kaffee"
  213. 1380 print"der arbeiter."
  214. 1390 print"arbeiter erschossen:";gf
  215. 1410 print"gewehr:";g$
  216. 1420 print"----------------------------------------"
  217. 1430 geta$:ifa$=""then1430
  218. 1440 print"[147]bitte waehlen sie:"
  219. 1450 print"[144]a)datenbildschirm"
  220. 1460 print"b)arbeiter einstellen/entlassen"
  221. 1470 print"c)entsorgung foerdern/mindern"
  222. 1480 print"d)klaerbecken bauen/abreissen"
  223. 1490 print"e)arbeiter verpesten/entpesten"
  224. 1500 print"f)arbeiter erschiessen"
  225. 1510 print"g)gewehr kaufen"
  226. 1520 print"h)daten speichern"
  227. 1530 print"i)programm beenden"
  228. 1540 geta$:ifa$=""then1540
  229. 1550 ifa$="a"then1330
  230. 1560 ifa$="b"then2130
  231. 1570 ifa$="c"then2050
  232. 1580 ifa$="d"then1650
  233. 1590 ifa$="e"then2200
  234. 1600 ifa$="f"then1890
  235. 1610 ifa$="g"then2280
  236. 1620 ifa$="h"then2320
  237. 1630 ifa$="i"thenprint"nix is fisch gips![145][145]":goto1540
  238. 1640 goto1540
  239. 1650 gosub30
  240. 1660 print"klaerbecken bauen..."
  241. 1670 print"fuer welche entsorgung soll das becken"
  242. 1680 print"sein?"
  243. 1690 print"a)scheisse"
  244. 1700 print"b)duennflitz"
  245. 1710 print"c)kadaver"
  246. 1720 print"d)zigarettenstummel"
  247. 1730 print"e)pisse"
  248. 1740 print"f)kondome/tampons/binden"
  249. 1750 print"g)alles andere"
  250. 1760 geta$:ifa$=""then1760
  251. 1770 ifa$="a"thengosub30:print"klaerbecken gebaut!":kb=kb+1:goto1430
  252. 1780 ifa$="b"thengosub30:print"klaerbecken gebaut!":kb=kb+1:goto1430
  253. 1790 ifa$="c"thengosub30:print"friedhof gebaut!":goto1430
  254. 1800 ifa$="d"thengosub30:print"aschenbecher gekauft!":goto1430
  255. 1810 ifa$="e"then1850
  256. 1820 ifa$="f"thengosub30:print"atommuelltonne aufgestellt":goto1430
  257. 1830 ifa$="g"thengosub30:print"klaerbecken gebaut!":kb=kb+1:goto1430
  258. 1840 goto1760
  259. 1850 gosub30
  260. 1860 print"klaerbecken gebaut.bedenken sie jedoch,"
  261. 1870 print"dass sie noch pisse fuer den kaffee"
  262. 1880 print"ihrer arbeiter brauchen!":goto1430
  263. 1890 gosub30:ifar<=0thenprint"sie haben keine arbeiter!":goto1430
  264. 1900 print"haben sie den arbeiter geholt?"
  265. 1910 geta$:ifa$=""then1910
  266. 1920 ifa$="n"thenprint"dann holen sie ihn"
  267. 1930 print"haben sie ihr gewehr geladen?"
  268. 1940 geta$:ifa$=""then1940
  269. 1950 ifa$="n"thenprint"dann laden sie es,bevor er abhaut!"
  270. 1960 print"laden,zielen und abdruecken.haben sie"
  271. 1970 print"abgedrueckt?"
  272. 1980 geta$:ifa$=""then1980
  273. 1990 gosub 30:ifa$="n"thenprint"dann tun sie es,bevor er abhaut![145]"
  274. 2000 print"ist er tot umgefallen?"
  275. 2010 geta$:ifa$=""then2010
  276. 2020 ifa$="n"thenprint"grrrr,sie haben nicht gezielt!":goto2040
  277. 2030 print"das haben sie gut gemacht.":ar=ar-1
  278. 2040 goto1430
  279. 2050 gosub30
  280. 2060 print"ihre entsorgung liegt bei";sc
  281. 2070 print"liter scheisse pro monat.wie viel"
  282. 2080 print"wollen sie dazugeben(+x)oder abziehen"
  283. 2090 print"(-x)"
  284. 2100 input di
  285. 2110 sc=sc+di:ifdi<0thendi=0
  286. 2120 goto1440
  287. 2130 gosub30
  288. 2140 print"ich koennte ihnen 5 sklaven anbieten."
  289. 2150 print"wollen sie sie(j/n)?"
  290. 2160 geta$:ifa$=""then2160
  291. 2170 ifa$="j"thenar=ar+5:goto1440
  292. 2180 ifa$="n"then1440
  293. 2190 goto2160
  294. 2200 gosub30
  295. 2210 print"die arbeiter bekommen";pi;"liter"
  296. 2220 print"pisse pro tag in den kaffee.eine"
  297. 2230 print"aerztliche diagnose besagt,dass pro jahr";
  298. 2240 print"";int(pi/2.477);"sterben werden."
  299. 2250 print"wie soll die neue literzahl sein?"
  300. 2260 input nl:ifnl=0then1440
  301. 2270 pi=nl:goto1440
  302. 2280 gosub30
  303. 2290 print"welches ist ihre neue waffe?"
  304. 2300 input g$
  305. 2310 goto1440
  306. 2320 gosub 30
  307. 2330 print"bitte legen sie die datendiskette"
  308. 2340 print"oder den datentoast in die floppy oder"
  309. 2350 print"in den toaster."
  310. 2360 geta$:ifa$=""then2360
  311. 2370 gosub30
  312. 2380 print"daten werden gespeichert,das problem ist"
  313. 2390 print"nur,dass sie die daten nicht laden"
  314. 2400 print"koennen,har har har!!!"
  315. 2410 fori=0to3:open15,8,15,"i":close 15:next
  316. 2420 print"taste...":goto1430
  317.